home *** CD-ROM | disk | FTP | other *** search
- %BEGIN Rectangles
- /rectpath
- {
- /lastright exch def
- /lastbottom exch def
- /lastleft exch def
- /lasttop exch def
- newpath
- lastleft lasttop moveto
- lastright lasttop lineto
- lastright lastbottom lineto
- lastleft lastbottom lineto
- closepath
- }
- def
- /frameRect
- {
- /lastright exch def
- /lastbottom exch def
- /lastleft exch def
- /lasttop exch def
- penWidth 0 gt
- penHeight 0 gt
- and
- {
- gsave
- penPattern usePattern
- newpath
- lastleft lasttop moveto
- lastright lasttop lineto
- lastright lastbottom lineto
- lastleft lastbottom lineto
- closepath
- lastleft penWidth add lasttop penHeight add moveto
- lastleft penWidth add lastbottom penHeight sub lineto
- lastright penWidth sub lastbottom penHeight sub lineto
- lastright penWidth sub lasttop penHeight add lineto
- closepath
- fill
- grestore
- }
- if
- }
- def
- /paintRect
- {
- gsave
- penPattern usePattern
- rectpath
- fill
- grestore
- } def
- /eraseRect
- {
- gsave
- backPattern usePattern
- rectpath
- fill
- grestore
- }
- def
- /invertRect
- {
- gsave
- rectpath
- grestore
- }
- def
- /fillRect
- {
- gsave
- fillPattern usePattern
- rectpath
- fill
- grestore
- }
- def
- /frameSameRect
- { lasttop lastleft lastbottom lastright frameRect }
- def
- /paintSameRect
- { lasttop lastleft lastbottom lastright paintRect }
- def
- /eraseSameRect
- { lasttop lastleft lastbottom lastright eraseRect }
- def
- /invertSameRect
- { lasttop lastleft lastbottom lastright invertRect }
- def
- /fillSameRect
- { lasttop lastleft lastbottom lastright fillRect }
- def
- %END Rectangles
-